home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / pp / pp-6.0 / Tools / misc / t-txt2dr.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-12-18  |  908 b   |  56 lines
  1. /* program/subroutines name: brief description of what this is */
  2.  
  3. # ifndef lint
  4. static char Rcsid[] = "@(#)$Header: /xtel/pp/pp-beta/Tools/misc/RCS/t-txt2dr.c,v 6.0 1991/12/18 20:30:40 jpo Rel $";
  5. # endif
  6.  
  7. /*
  8.  * $Header: /xtel/pp/pp-beta/Tools/misc/RCS/t-txt2dr.c,v 6.0 1991/12/18 20:30:40 jpo Rel $
  9.  *
  10.  * $Log: t-txt2dr.c,v $
  11.  * Revision 6.0  1991/12/18  20:30:40  jpo
  12.  * Release 6.0
  13.  *
  14.  */
  15.  
  16.  
  17.  
  18. #include        "util.h"
  19. #include         "q.h"
  20. #include         "dr.h"
  21.  
  22. main (ac, av)
  23. int     ac;
  24. char    *av[];
  25. {
  26.     char    buffer[BUFSIZ];
  27.     char    c;
  28.     FILE    *fp;
  29.  
  30.     fp = stdin;
  31.  
  32.     if (fgets (&buffer[0], BUFSIZ, fp) == NULL)
  33.         return;
  34.  
  35.     do_routine (buffer);
  36. }
  37.  
  38.  
  39.  
  40.  
  41. /* ---------------------  Static  Routines  ------------------------------- */
  42.  
  43.  
  44.  
  45.  
  46. static do_routine (str)
  47. char    *str;
  48. {
  49.     DRmpdu  drmpdu;
  50.     dr_init (&drmpdu);
  51.     if (txt2dr (&drmpdu, str) == NOTOK)
  52.         printf ("NOTOK\n");
  53.     else
  54.         printf ("OK\n");
  55. }
  56.